home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / framework.lha / fw / wbGadTools.e < prev    next >
Encoding:
Text File  |  1996-01-28  |  698 b   |  35 lines
  1.  
  2. -> wbGadTools is an abstraction of GadTools gadgets.
  3.  
  4. -> Copyright © Guichard Damien 01/04/1996
  5.  
  6. OPT MODULE
  7. OPT EXPORT
  8.  
  9. MODULE 'gadtools'
  10. MODULE 'fw/wbObject','fw/wbIDCMP'
  11.  
  12. OBJECT wbGadTools OF wbIDCMP
  13. ENDOBJECT
  14.  
  15. -> Performs the appropriate action when the signal is received.
  16. PROC handleActivation() OF wbGadTools
  17.   DEF result=PASS,msg
  18.   WHILE msg:=Gt_GetIMsg(self.port)
  19.     result:=self.handleMessage(msg)
  20.     IF result=PASS THEN Gt_ReplyIMsg(msg)
  21.     EXIT result>CONTINUE
  22.   ENDWHILE
  23. ENDPROC result
  24.  
  25. -> Flush all pending messages at the object's MsgPort.
  26. PROC flushPort() OF wbGadTools
  27.   DEF msg
  28.   Forbid()
  29.   WHILE msg:=Gt_GetIMsg(self.port)
  30.     Gt_ReplyIMsg(msg)
  31.   ENDWHILE
  32.   Permit()
  33. ENDPROC
  34.  
  35.